oo::class create Animation {
    variable Width Widget Height Image Id Interval
    
    constructor {interval widget} {
        set Interval $interval
        set Id 1
        set Width 32
        set Height 32
        set Image [image create photo -format png -data {
            iVBORw0KGgoAAAANSUhEUgAAAQAAAACAEAYAAAC0JWtJAAAABmJLR0QAAAAAAAD5Q7t/AAAACXBI
            WXMAAABIAAAASABGyWs+AAAzU0lEQVR42u3dd7h9RXU+cEESTWIXEkF6712KVAkoEIpIizUGY0Vj
            IdFoTNAYNc8TS5QQoyAPQhQUMKCoYAFRpEoXpCNFBCJKjNGEtN8fy09+7pXv5pxz7957zjl33n/e
            555779nz7plZs2bNmplHPaqioqKioqKioqKioqKioqKioqKioqKiYg7x6NIFqFjKWG654Kc/PfjJ
            Tw7+yU9Kl2wYPO1pwS9/efAWWwTfdlvwv/1b6RL2i9/6reDf+73gTTcNvuOO4H//99Il7BcrrRR8
            6KHB66wT/P3vLw39T31q8P77B6+5ZvC99wb/x3+ULmG/+JVfCd544+Df/M3gH/4w+H/+p+8SVAeg
            oiAOOST4mGOCX/Si4LvuCr7lltIl7Accn6OOCuYA7LJL8PLLB194YemS9qv/yCODX/rS4J12auq/
            +OLSJe1X/xFHBL/gBcE77xz86F/Y5csuK13SfvU///nBBx8cvP32wQb+664rXdJ+sc8+wS98YfAz
            nxn8858H33573yVYvvQrWNpYZZXgP/3T4Ne/PthMeF7xG78RbMBfffXgVVcNfvGLg3nI84bHPS54
            662bnzP8HIFf//XSJe0H6l/EI+tnCOdVP10iHln/dtsF/9qvlS5pP6Brgw2WrZ8j9NjHli5pv/o3
            3zyYndMu6O/f/q1Q+lXMB4Swd9wxWAiPB/9f/9X8exX7trcFGwjNfDgA73hHaWXjYeWVg5/xjOAf
            /CD4yiuXrV9Hf/zjH/n7fvVXg6c9FCh0t+WWwQ88EHzttcH//d/Nv1/hF/3uMY9pfm5mxPAtPyMO
            unoSwlZfZjBt+v1fm34/zwoYcPX2058u+++0f3Yg65y1+s+gpy2ETf8KKyz7//SLNv3es/b24x8H
            33NPaeXjgS766cZPeELz99n+cSBMFDjU550X/M//PG5JqgOwKHjxb35zsJnLww8HH3dc8MknBxsI
            NeCttgpW8RrGiis2f84GlOHwffn3Q4EOodwcwqP7M59plrfNsOfP2wzItOjXEX//94PN6JXrtNOC
            zzqrWU6/b3NsfN42cHrvBphS+hnyAw8MziH8L30p+Nxzl63/P/9zYfrlDvzLvwSXzhkRudp332AR
            nm9/O9hSDj0469f+fd6mn8MpR+DBB8vqVy4RHbktBmSOsP6c20HW39avTQze8pbgvfYK5nBbUjPx
            GBraJf3qxYQw62+r/zb9vv+Nbwx+9rODOYwnnBD8vveNW+IZ9TCnBTy1NdYIVqE82Fe9KvglLwl+
            dMq5yA1AA/nOd5o/M6iWDNZbL1jSTJ5JDgUzeAaQ4VYeA+Phhzf1022tC3QAHcf3jdKfZ5JDgQOo
            wysvB8Ua50EHNXXQn5P86P/Rj5rfZ0B5+9uD99tvOvSrT/WivdLPMbDWST8D11b/ZnTeE/0iYl/5
            SvBJJwXrf6Ww/vrBT3lK8BOfGGyA2m23ZevP9e/3Dz0UrP61M0uFZ5/d1K8/lIL6l8y22mrBu+4a
            bEkjD3Bt+jl06j9PtLQr9tdSgvc8NJRPObTHHXYI3mSTpn4Du4ki+D3H1nvy/ZaIOZomIPqbCcj4
            SyfVAVgUGOqrrgrWYTVchvk1rwneY49gIZrPfjbYgHfnncGXXBLMoMqWlTWswg3AbaH0vsFQS9ah
            X8NWzpe9LFjI6l//NfiLX2y+D4bPjNn3Tat+5f7ud4PNyOg3QEryskT0s58Ff/WrwQZCHZ+Bp9/7
            Y1glR5bWr3xmevRjBv25zw3edtum/m98I9hAIKJxzjnN7+dI6kdyRrzPtdYqox+0Azowg/6c5wRv
            tlmw+pbkmPVrF+yICcQrXtHUL+LIrpQCO6Xe6fG5yJAB0u+vuCJYf2EXvv71pn5LpBxfEQf9y3u2
            e2RoaOfaq/o1gFvr5xh4T+wm/f7vooua+g87LHjvvYPZP+/B8y+4oPl+R6MuASwKKlLoxUwwe3w8
            Mh3WDObYY4MZPJ7hrbc2nzMqGagtlNo3NNxTTgkWmtxww2ANU/ktEejgH/tYMEOoQecQ3ij9OZQ4
            FHR4DgtHxYws6+ehf+tbwSeeGCxEqr1cemnzZ88x48szh1L6GXiGx9KVAZl+MxhJb3JjPvnJ4Ouv
            b+oVOvczA8qh/qd/CtZ/vL9SuPnmpm6OGv0cNAPgNdcEn3FG8E03NfVefXXzZ46DyJp+4v3bNlYK
            nn///cHsYF7r9n5uvDH4C18IlitCr4GRXo6enw382ESCXRkaBm4TObqxAVuk5HvfCz7//OC7727+
            vQmF9i63yjjifWJLbKeeOmnJ6zbATiBkZWa29trBBgQG2kCvgRvwNRwRhQwNXyhURzHzYBD73ze6
            bJi56sg8XcmM9EtSueGGpv777gu2/zfrmHb9Zi62L+roQsF0Wgs2YHgvZtAMQdbBwPqeadNvRq/+
            OILqS7kuvzxYO6HfGmleKwUhdgPrBz4QLFJiDbiUfg6Zcmj3cjWUS79Xz/RLmsVZx7rrBougMfz0
            c4RKnRthAiKCR3cORbOP+rv2zHHA9Hs/kv1EEuiXY/LWtwaXcoTo0A8M3DnJT/tm7/2fcud+TD/H
            iSPEofjyl4OPPrr5veNjxrJsZwU8YB1Wx1Rhkx7wwTNkUHm+Bt5SEYA2GADM+OnloecZ7Lzp5/hJ
            8jSDF+mYd/1PelKwNWGGTGRn0l0dBhKOlaWnadVvxm8iwKBzfCctrwHVmjrH0gyS4zEtEPFSX2Dm
            O2nESnuylKI9mPkbOKcFHACOoP7LwZk0aVd977lnU7+Z/8Idn+oALArZIKtYA37f29d4ljzCtuzS
            vsAwZf0G/L7LUVp/3s7G0Oc10HnV37adiYMz7/o9f1Ry77zqh7ydb6jnczT0P6H4SR3sWdXP/sqN
            Ync4GmOUfJiCzguEonffPdiabs7CF+I7/fTg8fdljgcdXva9hqDhaQBCcl2BwZHMZd87/X4vxCdE
            17Yfetb0gwiPtdl8cJMZmbVuocF50c/wCk2boRgI25Ij50W/59uWJsdB+7ckJOTb9YBQWj/HT6TP
            DB3ot6TRtX4Dvv4HlmItRfW1PVQ925Y3tH5JoH/918HbbBMsEvLOdwZbcm5H3QUwERg8yXw6vgYp
            NCPZJzfQrmC7UT4wwvN5hF0fJMLQS+bKB3YYAKzVWrudF/30WZMU6m3br8xAz4t+YPg4AgyciJf3
            opzzpl8/4Pjp/wZmA0JfuzNK6/dc7YAdwMrXl37vPe868Xzl6ks/u88BGlq/XTVyItgfz3O08uiT
            JGsEYCJYuzKja2tgeVtM1yiV7ESPGd6otay+kpJK6c/vYdQMY97qH/SDUaHWvkKxpfWPi75OMiyt
            f9znV/39PN/av0vD8tKHZPLR9qfuApgIBr58lKVkJCE3Wd4LTXoahbzPHgy4QkFdD8Bmenmft+cY
            EJ1n4D10HQIrpV/H5wDq4HkftxCsEHDXJ/WV0p+fn/chq2ftIO9emBf9+cAn9oBjxE70davbtOhX
            //lkzlL6DYSW4PpywLXzvM1vKP36F73Yc9md0Q54TQJcEPL+7nzClYbX9xGt+QxpDW0oDznvR6WX
            gRgqCayU/rz0kbfvzLt+z8370qv+qn8p6IecBDg7+qsD0AusBVmT4RCYIU7aMFSwtUfgCZY6C74N
            1kTp54lW/VV/1V/1V/3Tor8uAXQKFe8gHCejSQrKOQTjQta5fbW+TwSi9KUwWb8s1aWmXyhwqdZ/
            1V/1V/2zpL/uAugEPDQVlU8A8/uclelzf9+Wtdl2PapsXFmppSErNpdnqejX4ZeqfgcgLVR/26VW
            s6Jf9nfVX/XPhv66C6ATtFUwcATsDwXbVQycPETnCAjx+L8cAoKcDDM0ck7EUtOfO/JS0w9ttxKO
            q19ylaORq/7Z0r9Cy3hS9U+r/roE0AlUsAHQQCAkIytXVmi+RlUF5qQyWZ2yPA00DE3O+i19KQwd
            PFKfz7t+UO7skS8V/cqX7wAYV3++5GXW9Ovvuf7p7lq/ULLvLa0/X1+71PXn9u+s/unRXyMAncLJ
            T9ZkeHQ8uLwk0HaOQD5alGHx/Xl7VemGDxq6Bqt8S0W/cuU1Pu9jXP051Dcr+m2DzQZLEuy869fv
            7c/Otzl2rZ99Kb0vHrR7+vM1uUtNf67/rK+8/uoAdAqGaNQRnCou3x4Fo7JF+75jYKHQUEcdkJMd
            o6yf5ztr+mFUks8o/c6VmFX9o/Zfz7v+UeWbd/2jzv2o+qdFf10CKAqGMod8+jpAYtqQZ8YcJydZ
            Vf2lS1j1D6E/HyBT9Vf9S0F/RUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVFRUVF
            RUVFRUVFRUVFRUVFRUVFRUVFRUVFRUXFL2NKDgJydr6jEaflaM+KioqKior5RGEHYJ11gg87LHiL
            LYKdhPTjH5ctX99wacQ22wSvtlqwE9Eefrh0CfsFh8+tWI9/fHC+NWvewQF2IuSoo0TnDfkypNL3
            ug8NZ7/nM+CXCpaq7vIo5AC4NnGffYLXXjt45ZV/UaxflOvaa8u9mj7B0O24YzAHYP31m/pvv710
            SfvFuus29a+3XrAIkMuF5hWuAeUIr7FGMMfPnRDzCteb0v3kJwc7InveHWC3Jq66avCTnhScj4id
            V5gAPf3pwdqDWx7nXf9jHtPU733Q378jvPziv2IhaLs2lSe4+urNF5Tx2McGP+tZwb/zO8FPeEIZ
            PZOCA/TUpy5bvwGh7X5x+nfeOXivvYLNoKcd9BsAtQf1vcEGzc8z/N1mmwXvumswgzrtoMuAZwYs
            EqD+224L0y44TGut9ch/P21QTvVPj+u0TQTaZob+39+39ZNpBV0rrRSs37JfK6442ffMGrJ+ujlA
            4+qfVdD/tKcFswPex3D6O74NUEdUkW4tEtLO10Hmyw58zsDnBu4FvfrVwXvsEWxA/OQng485ZqgX
            2ATDzpDn63CzzqyPYWvTz2F46UuDd9mlqf/004OPP76MfuVlmNWvGc24+nNI3ExARzn00ODttmv+
            /Re+EKwdlNKvPpS7bSabB2w/c4xzSJyh3Hff4C23bD73jDOCL7usjH7g0ChX1j/qOlTvL9sJ70W9
            iyBZKjznnODSkZNR+uluc1xyTpT6z46fgeL++4Nvuqn5vqZdf9sEr00/e5AdJ5HCUbewDq1fPeQl
            Pbq08wwTmazfz3R7Dt2TLx125ACoGDN3oRwN9t57g++6qykoX2tIoOsQGVAN4pWvDH72s5svADOI
            Gtaoa0m7goYulMMBolMH1VBHNQwOA/0G1Je8JHj33Zvvl34z4qH1g7V8Mzvlf+CByfTnEKCOcvDB
            wZZOfO49bLRR8+ehQ8gMk/eQlzLykkYO8WX92fA/5znBW2/d1K++N9kkuJQDwEEzs9Ev2vRntE0M
            tO+ddgrWzumXO3PLLcHXXFNGPweNHZhUP6h370HEbPPNgzkA7IIlVHamVO5UX/r1C+NLDplzhC69
            tPn/Q8PAvMoqzXK73XWx+unWz/KEwfg6vgPYUchQB9UgGT685prBDCPDfOONwQyemeI3vhHMQXju
            c4N/+7eDdYicPHThhcFDD3zKw3PT8DlGDCLHiH5r/H5WbgbcALn33sFm/Nnx8XwdYGj93j8DQL9y
            Zf10MVh+Vt/XXRes/XB4tt8+2IBnYPScq65qvs+h9XP8/Kx+sn66GGod3ufahc/p3mqrpn7sOffd
            N6xuUN9PeUpwdkxH6fczvXT42YDPwaObA+B950jTtOnXP9r04wcfDGbI2U9LPXSzt7j0EpD237V+
            jrWlIRNCur13zysFA3OemCxWv8gvndm+6FeTLwl1FAFgcM1ceUIMOgNNgA5uwLrnnubf3Xln8wUy
            fHnNz9+fd16wEOjQUHEcmdwQc+jGvc/f+U4wz5AeERPfw/PP+v3+m98M/vzny+hnqDkeyjlK//e+
            1/yZHhED74Ph1/GzA3DJJcHnnjtb+un82c+a+oX06Bfqpj/P/K+8MpjjPDTaIjpZv5lK1i9kz4Cx
            IzmymA0//frRHXeU1d+WtJb1/+QnTf1+9nfag/dh4uT/czu49dbmey2Ftpn3QvWDgTPrx+q9dNLo
            uO1/Uv3au/aQJ9wchskjHx15jB78gx8E88R97ue8RuP3d98drCJ9rkJvvrkpHJ9/fvC73918kUOj
            TT8wEByE/DmHiCOUl0jMCA14WMTjAx8ItnRSChp0m/7csH1u26eIQB5QhLbyzJcD+ZGPBJde+51U
            Pyi3GUHWr30w+Pjqq4NPPjm49PbJher3eS5/nhHlGa8I4plnBuclxaEh1Numvy1CwS609Q+f54GP
            A/21rwWX3j5qItOmY1L9oF7pFmnVLyz5lM59UP9d688Ty+xIGD8nR09ZpAaotpDfpBXFA5T1bwDQ
            8BmIaQH9yq0Bq7BJ9Zs5yvqn34zPADot6Fq/Dp+XAC6+OHjazovoWj/DZ+2f/m9/O7j0zK9v/QZ8
            OQ6+31JRace3b/3q21q/yIgJU2nHr2/99NoumSOlpZZ+htIvMmApgH7j3sIjHx05ACukpYShPFGG
            wRoRT8lMZCiU1i8Jhv6h98+X0m8mTL+fDYi479Bgaf2W1vzMwHCM+s6OLqXfwGjtNWeV0923g1RK
            f55o0a/+DTh9O0il9JsRmyDlXRXqP0de50W/54oI+DnnlLXbvwU6AHkfJwMEPFIh8a5fiKzf97wn
            2MxICMaSwJe/3O1zM+jP+/n71i8b9J3vDLb7gaH74AeDzz57PvVLhnrTm4LlSBgAGTwzxHe9K7jr
            SEkp/bLAbYd1gFTePieX5kMfCu46O55u72Eo/WbCtsM6N8EAaMZkSe2jHw2+/vpuyyHpTZLXUPrl
            RBx+eLCDlLJ+z7dEZJvgrOuXZb/ffsHsYd4+/f3vB7ODXR+sVkq/XVa77RYsR4QDJOJuPDQO/t+J
            4QJPAjTz1BBzNrrf87y69sBsB3zZy4KFWlSEAUJSYNdrgwxtKf10M4D0M8RCZX2tjepoHLGclNm3
            /te9Lti2QPqFys0IJc9ZK7/tttnWz7AZ+O0OyfqxrGkD9Ve/GrzYbVJ00u99DKX/iCOC99yzqd9M
            yPPzQSsXXNCt/nxg2VD6n//8YAdgmQHn+jcwGKgsmc26/gMPDLYkSH9OEqRfhMSS2WJzBUrrtxtO
            crwlUvr9TD8HxDbZX1LSTcFGFbhrqMC2bR8GvNJJIX2f1NV2kEjfzx33vfZVDiGttoNEcjm7Lkfe
            trNCSz/q+rl5X3DebTDu/w+FvvTnA7fy7/NzS52Y15f+HPodhVLbA/vSn0P/+fdtB4zNi/6cYzAK
            j26d6C8wAsDw5f2IPheKFoLo2vDICgfZk5JiLAH0dZZ+3u6jQnjWfeuX9ZkP3BDikxV/ww396s8N
            cij9QttmuNqhED92IqATErsKxeWDOobWL/ubh0+/NU9r/3ZJ/P3fB3eVG0On9ykiNpR+/T8fJe25
            3sMVVwSfeGJwV7kxpfULbYv4cQgsfWFLPqecEtxVsnRp/bL/6Vf/xgG7atg/kdCukoVL69eO5T6p
            f8mQ2O45kb//myzZUxJgHiD6goGPAfZz30kf06I/nyEv6WNo/Tqg9z+0/raZcD5RcV71tx0pqh30
            vT1u2vTnbbd9J2WV0s/ujKr/edefI4GeK1I4r/o9ty0STH+7/et5G6AQTb7dbNIX48VaywFZrtN2
            fWjV34/+Zz4z2MyXZ1vq/Ieh9HNwrPmDbbDzrt8A5whwcA7ItG4D7Fq/u0/AAWDzrl8Og6OwDehf
            +UrwvLd/M331L9Ihp2Xh9d/xdcA8clmpCq4CeSJtBx60QTKP7E/fxzB6saUHwqq/X/1C/m4/3H//
            YMlNk37vrOh3B8SxxwYfcEDwhhsGOw9i3vRz/P74j4P/8i+D3f5p94MDsUrvB+9L/xvfGPznfx5s
            IJTkqv3Pq/7Xvjb4DW8IdieEI5IdAV76PIS+9L/85cGveEWw5EfJ3nY7Td7/O06OsB2w7ZrfHKr1
            eT7iNSNvb4Kc/VsaVX+/+q1hnnRSMMMnF6I0+tJv+5osZu/DrYAiI6XRtX65DQ4AykfgiojssENp
            5f3q33jj5vf6e46w2xFLY7H67dbIS7vbbhuc70Cg/81vDi59Hfik+tXvNtsE296b30u+/Mz3OBjv
            D/8weNykwF8qQbcvoC0bWsgje2hCuTxZ+3mzkFGeXelLIKr+YfWLdEjyciJYafSlXzLr+98f7Oz/
            fNlIaXSt34zJ5Vg5C96A6XtKoy/9HL/8HAOCZMjSWKx+EQ4RHjlNF10UnM/C1/5tBzUznhX9IhiS
            tj/3ueB99mn+vVB/XvPX/i0NuDRvfHS8BKDB8oAIl7VoBkeIkLYK9XnO6hXayp6hFyTbsu9kr2nT
            b+2H/tJLAKX0+/5516+9OwNfNvSppwaXXgvtS7/LftS70Kc14BNOmG/9IkBZv9C3iFjpI8EXq9+l
            X2a2svevvTZYpE9EJN+66n34+2nXrx4tZTrgimPHIRDitwTqPdEvkuBnuVGjx8OOzwGwBuHAFQXK
            Wci54Bk51J0v2zHgSQYpvd+/6q/6S+iXBFja8e1bP8fHyZe2NXoPQ19/XUq/7c3HHRdsW1vptf+u
            9Ps/kZCs34medjdYAtIvRMZmRb8ZfF4yyBFd3+vSN0sDZv7sA8dn/P7Q00FAo7Zd+L2KzdsYzOza
            DHvpW7+q/qq/6h9ev/+zD35a0bf+aVny6lo/h8bRtbmdi3BYKhD58b5ExEpjXP0GagO+gVzIP+sX
            STj66GARMO1k8uvAC52QBSpe8oeZjIouHdKt+qv+qr/qr/qH0S8iYOmj9K6WvmF3gKPdRXLc3TBt
            2zsrKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
            KioqKioqKioqKioqKioqKioqKioqKioqFoeObwOcFI6CXGmlYJciOCN53o/CdAa06zyXun73XNM/
            LZf89K1f+1+q+p/61Kb+hx+u+qv+qr9//T1dBjQKbkNyvaEzkcGZ0G55mjdk/c7CXir6wX3gOgC4
            V3up6ndd6P33ly5hGf3qv+ovXcKqf771L7/4r1gWGLAVWhwMA5x7jzMe97jm3+X/e/zjm7x8Tzr6
            1s/jG1c/x8F1kHjaMEq/3+drMMfV773lW9SmBYvV/4QnPLJ+14guVf10r1BoAlNKP5g5PrpwBLe0
            /mmz+7Onv+MORNDTn94s4IMPBrvOcBSEvoVAfI/vzTNmnlJpj7Fv/SIGPEZ/53pU12nOu/6nPCXY
            7Wn33BP8k58sDf3av2tF77oruPTtaUPpFzF0XSr97omfV/1Pe1pTv1Dx3XcHj38P/HzoV9/6v/dR
            9Y+Ljj1IIQ0eDA/Ii1FgzBMykyXYQO7vVlwx2FqxmcBy6Trjhx7qVs/Q+g1obfp9P90ahvfmGs2l
            ot//6zClHYDF6jegj9Kv3n0//aWvDx1av5kQR8D98vOq3wDg/0RClqp+kTCOb2kHcPb0dxwBYMAz
            dFgvgqF+4IHmz/4uz2TaQuXg/0snjSxUfx64syc/Sn/pmV9p/aVnPl3pN5Az6OPqz3+/1PSXnvlV
            /WX1l7b7s6u/4zUUoY48ICngz3++7P/jubQNZG2ejRf3ox91q2No/QawtoGs6m9+z7zqbxvIq/5H
            1l868lH1l9X/05+WVj6r+pdb6D8+MoSmhEIIW+hMnQfl+4SANXyhk2lB1d+PfsmBQmBVf9Vf9Vf9
            Vf9CS9qRA5CzHYeqEC/CbgLlEBJr87i6Rin9GoYG52fPHyo0WEo/R8hacH7+UOcoTIt+eoUihwqN
            Tpv+oQeEqr/qn039i3QAZCNKTgDJKPZxd/1CeFZbbx0sOTAnBd16a/DVVzdfUFcopZ/Ds956zXLQ
            L6R0yy3B1pq6Rin9HB7ZtpJodAghuHvvDe4rOWja9Gvf9Nsd0pdBmlb9QqP33df8fKnotySk3/fl
            CJbSz86tuuqy9f/wh8HjZt0vFMYdB3l5vpB8Kf3q3ZJEOxaYBMjjUfGyEcHPXkTX29M23zx4o42C
            zXyxgcB2qTvu6LYcpfWvvXaT2/RzFL7+9eC2JJVZ06/j2Q6Zd0UIldF7553dPr+0fro5whkGCANh
            17tjpl2/rGnP73p3yLTrNyCp966TZEvrtw14lH7tv+tIKPvzt38bzN7cfnswB+Qznwm+4Yay+tsd
            kJ4P0liupxwDof98gmDb80sdGNGXfgN7Pg8hwxpRX+UopZ+BGaVfRyyFvt972/eb8ZXOju5L/7iO
            7FLVP/TSj4HIzNSAKALTNUrXq/Fk3XWD118/eNddg9WPCHTXDsAo/eP3/wWeA5DXGgxIOQTHAHdd
            Yb6fJ2zG48Xz+C+5JFgEoCtk/Z6f9+P3pZ9nzRPU8ZTH86+8svk+5kW/kP4TnxjMIfAcIVAeedch
            uNL6zWhsD+IQ5/bf1/OnRX/O/bD0J/Tb17kg06rf50LAfWXH07/mmsGveU3wXnsF649f+1qzXH3r
            Zxe89770+14h9lVWaX5+9tnBH/1os1xD6Vf/o3PgOvJQGSAe71BJSJ6bj8bUMYfaH55D8EPpzwei
            eJ7ndxXyn3b9+UhUzx8qCbCU/rYIVz5JbN7155n20JdoLXX9jmQ3EeR49X0+RdZfKvJFP8eHAzj9
            +js6CdADNTwesRC9UNFCX4iZLg9z9dWDhZgkPfn+oQa+ofQLdQsx8TjNdHh+Q2d/D6VfiPEZzwi2
            Bmemn29PnDb96otHPmlEwkx/k02CRb7M9L3XUqHRrH+ttYIPOaRZXkmZk+pnWH0vgyvZrFS7b9Nv
            Zvy85wWzX/RPap84uE6aM9CWbvdgRsoOr7Za8OGHB7PXjmye1A5wrLxHSW/Tcmtq1i85U/17H47s
            nR79HR8FbCa6xhrBknEYQg1/3JPreDYveUmTZf87G/y73w0eatvf0PoZ0kMPDTYQMAiy/Usfhdmm
            HzPgzi4fF/vtF7zvvsF2PxhYJPmVPhGQfgPAgQcG/9VfBav/b397su/dY4/g3XYL9n4tgRhYSp8I
            yNAff3zwH/xBsHoTMrU0NS622y54m22C8/XZQr6l94Mz9B/5SPBLXxr87GcHc1jtShoXkp2tOat3
            7U2uT+mBcJ11gt///mAOwC67BHNYr7pqsu81oLL3JgQcIY5gaf3s23veE8wB2HHHpv7rrpvse9l5
            E4nu9HecBMhDybcc5VvcgABZ/TrIbbc1/54B8DOPSMPi+ep4pU7GWqj+TTdt6pez4PcMH8+P/u23
            b+o/6aTgUmeCM0xZ/7OeFawBX3RRUx+HjmOkgzBwW2zR/F76t9yy+Zx//Mfm9wwNkRod/8gjgzmA
            G2/c/HszWzqU+/rrm/q1DzNfERXfp31Zcy3lCHLUtEsDsvIayLJ++ui/6aZg9cywMnxmxAYcho9j
            UcoROOywYJEqDpnyShYDkaINN2zql7uiX+dLkLxP7O/y/w0FuwHe8Y5g/ZlDzvHlIIH2rR5N4EQK
            wASC/dS+tQcOoW2vQ8Pz3/a2YOMZ/doj+5f1ey902T6oHttufaXf+5n8+vSOs+Pbrj8kxMDEYB11
            VPCZZwafdlowj1mH+Na3mt/PcGCh8X326VZP3/pf//rgT386+OSTg834dIjLL29+v4ET77BD8/9K
            IW8HYthe/OJgMx/6JQ997GPBxxwTbKlHh/B/DCZDoGMwOAaeUthzz+A3vCGYQ6AeJaXS//KXB//N
            3wSLFOy+ezADIotYfWf9IkIMTymIfDD4DJ9+fOmlTf0ieu9+d/Db3x5sxuT/hU7p5whiA2vejz40
            GGLlzpf06Mf0myG/9a3B7IH2nJNa1bcse2yGPOrM+L4gwrPzzsFC4vSrf5FaOOCA4Ne+NljERHum
            X3Kd+tYO8vXwQ1+PrB5f9KJg9od+/Vf933xz8//ZC/ZRxND2bhg1oWu7Pn00OnYA7PdkuDUAtxv5
            vZkiwRo2D+l3fzeYh3TKKcFf/nLzcwOCBrHtts3Ph8ak+vfff9n6hfzp/Oxngy+4oPm5AVfHN1Mu
            rV/H5cjZD8vB47kyHHR4LyIGGvQXvxhsAM0OIP0GglL3pJuBWZIwkxESVY8MlvdDh/fCkNJ//vnB
            QqfZEcBmIqVw+unB117b1P/hDwd/7nNN/eqZfp8zpAyser/xxmXr139yVvTQOOOMYBEs+kUmtWMD
            mXrWXxlyESH6v/OdYO0q6867EIaGGSzHJydhaxdnndXUr57Vm89FiugXEZXzRLd2UCoHJEeo2fvs
            AJx6avCXvtQsv3qm3/eJeNFPN0cw6zTBKL4EwNMTwicgr03q8CoQ2o52JdDBC16UJQDCzZRK3Y41
            rv7suIyr/+Mfb/6fhicyIBegtH6erhmdbSk6qjWtfJAP9rn3wKH61KeCtR8Ojw6x0CSrrmCg4tgq
            v9CccgnlMviQk33UK0PCgPq7PFOivxQuuyxYroryc4Dp5+jkpSK68smW2vNXvhKsP+XkMs8pBbkd
            ZoT05/bP0cmhXfo5wjl5VvsyEOgnBshSOVCf/3zwVls1y88h+sQngrVj9c6O590seUbPoRBBEPEA
            73foHAB6OLxyc7RXDi8HwOfqPUdM6c1LndqNJQ65BNrHwq+B7+kgoFFrcJJ2hAR1ZIbswguD88Ap
            iei97w02M/J/1pZLY5R+OhjMgw4K1oAvvnjZ+nX8D30o2Bowh0CIsTTyWlZG9pRh1MEpthcdd1yw
            Gb+OdM01pZUHRg1Ebdt16G+LYOj4DIq1U4ao6/MuFoqFHj1Nf9tSGgfz3HODGVKfl3L8MsY9gjbX
            f9u2VtCvDDj+vnTym9wLSZ8G9lFH4eZyj9LPXkxLO9fejj02mANIF4et7XbANv1tofx8zs7i0fNJ
            gG3w4t71rmBJP5L3zPTa4AUwBLMG+jkyWb+QeRvyQUezBmtaHKEcCRiV1W9NcNJs8mmB+s8OHv2j
            Qno5N2DW0HZZFf15W2uGz6flGtxJMar+vZdRA3vpgT9j3JM3c45I1l96W+ukMB5Zoh4F9audiwjT
            P9z2xkJH5ILQ3fveF+zkpFnt2JPCdjgz+hNOCJ6W+637gg5Dr5kCz16od14hVyJvh2LwrrgiuPS2
            tr6g/s1ks36RnGmZ0felPztw9At1z6t+9l1uQ4Yl1HnVn5cO6OQYOEK4fweo0BnxFRWPetT/93it
            6eWkyXmHpE+7V/JRoqW2cw4FWfuyoek3kyq1nXMoSNqUy6S+JfuWPtekb8j1sG1SfXOAS59r0jfM
            /O2e4RiYGM9KBKSioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKi
            oqKioqKioqKioqKioqKioqILFLo1DVz24ShYZ0g7EWneD0Ko+qv+qr/qX6r6HQDmVkx3KDgAaN71
            OwjMtdjrrhv8ve8F93+pW6G7ACDfCve/xUq3iM0rqv6qv+qv+udF/8orN8t/zz3BbZde/dEfBW+4
            YbDrtF0GNCv6nei4667Bbu1z2Vs+0pj+N74x+BWvCHb2P8fANeL9oae7AFRg261e+drDDNeFtt2K
            5HuXL3yXQdVf9S8LrjNtu59+3vW7DpZhzLc8zrt+1zmvtNLS0L/77sEnnRR8yinBL3tZU2/W98xn
            Bhv4vKdZ0e8W0iOPDH7LW4LdbfPiFz+y/h12aH7OXnAM+9ff8QvUoNdaK1hIQ0cYFxoEz5FQZ4f7
            XmcoO1O5NKr+pa1fhz7ttOAjjlha+rfbLvjTnw4+55xgBvLRYy45zrp+A6D74F/1qvnUb8AWwhfS
            5/iZ4WZHwP/Rl69znhX97N0GGwS7vMv17K9+dbAQf67/fNsfvbfcMpT+jnMAeC5mADwVL8raDvZC
            3OvtBQr9+LsVVwzOISYemAZU+vKIpa7fTEAHx0tFP4P3vOcFc4Tc7vbAA/Ot/3WvC95vv2ChbTO9
            664LZuDmTf8rXxm8115N/RzD668PdtvbvOjfYovgzTYL1u+Vj2Ok3t0CaCaML7xwtvS7vMeAvPba
            y9a/zTbBljjcAmmc2HzzYLei/t3fBd93X9/6O84BaLu+kQdjIHCfPYPoekweUb4nW3JMG6YlWWSp
            69fROUInnxwsmWXe9dOlHay/fvDhhwczfEtFP0Oo/AZCkYF51W8gp9+MUP9w2+G86Bfx2Xrr4DZH
            wBq5+v/wh4MNbAa8WdGvvv7hH4JXXz14k02a+tU/R9h158ce23wfboOUQ9C//o6XAB58MDhf46mA
            bddb8qRyxUNbVqiO4xrR0ljq+j/1qWAhsRe+MJjHOu/6P/GJ4Jz8IzLCMZpX/Z/8ZPDllwcbCN3/
            LgIwr/oNhK6zpYd+DuC86Tdgvfvdwe655/gb2G6+ufl/2sfdd8+2fuX/4AeD1bN6pV8EJOu/6abg
            tqTJ/vQvt9B/fGRYkxDaUbE85Ek9FjPoxz0uWOhMx/IipwVLXb+1qT32CObhCnHNu/411gjee+9g
            BvLcc4PbDN286DcTEgq/997gr351aehfbbXgZz0r2Mz2/POXhn65APRz/M8+O9jAOK/6rdXvskuw
            AVzkZ3r0d+QA5GxXM+G2kHhX8DzZk0IyQzcIazTK86Mfzbd+Do5sdzN8z+foTNrQZ02/Dpn165jz
            qt/zsn7t3Yyk733MpfVb0mKQPd+Mb171q2+5C1m/COikjs6s6Rfapz9Heqdf/wIdAA8+5JBg2x8U
            5JJLgo8+OpgH3BU8Z9VVgzVEL8Dzfvzjbp+b9R90ULD9rMolBPwXfxHc9X7WNv05ieihh7p9rhD2
            n/xJsOQWA6IBQAhQ/VvrHEq/SANHpCvstFOw7T1m+vRrf5K93vve4KHr34ybI9IVtt8++LDDgs30
            s/4bbwwWEh26/vvSb437wAObz6ffACDULZnLhGAo/ULJHJGuYG3/Oc8Jtnaft7vecUfwiScGd22H
            S+k30d133+bzs35LAqefHixUP336F7gLwDYPDVyy05OeFLzppsHW/BjErqAiZNkKkfDEJJ0YALtO
            EvH8D30oeJ11mvo33jjYWpCsz77180wZpK71H3xwsIMrRADMhPy83nrBBuKrrx5Wf9f1r4P92Z8F
            b7ttsBmw3/tZNrAZ4KWXDqufgejKAZSEdNRRwbK+1bvfew+WgERArInPqn4zPdv5JHnR7feYYeaA
            Dt3/u9avP73oRcH6N73sjb8TAueA5bXvWdOftzsa3+j2PKx8BmAn+02f/gXuAvBCzPhyqMNMYNx9
            r5NilEHP+0i7Bv1051Bfaf19gYc5KrSpfH2F4sat/66fZy1v3NB+1zPQcfV33T6y/rzdKO/rhr6S
            s0rrb0tmzehrCXDo/p9D2znJuQ2l+n9fUJ/jRhb6WgLoTv8CBygvwFq/UJAO/6UvBR9/fHDX+zMN
            QDn04jn5TOmuQb/QntA4/ZK9hMC6Xgsupd/3ynkwAzDT8fsLLgi2PWZcg7FY/QyUkHtXa7AMmVC2
            9p6z3Om3n/kznwnuOhQ5Sn/bdqrF6v/hD4PNQHKWu9+LeJx1VvDQ9d+1foafvXPSX9bv91deGcwO
            jOswTLt+oXyRTuVg99hDkc9vfjN4KPvfl35Qv3nJh37vxxKQyFfXuSDd6e8oCVDoUwjIgDBUEkSe
            gQztIdKvYTAI86pfw3vyk4OFoOi15tV3Mk4p/ULdQuA5IjRUdnIp/Tnkn/VzeOZVfw7554go/UMl
            AQ+tn53Hnq++DURdR+KmRT97px/k+jfhm379PW0DtAbm4AeeoZnhpB4xgU5OAo5G3y96UpghOviB
            /osvDp7UI541/SIi1sp5xjziSSMis6ZfhMQJXxwiOTGTzghmTT/H0HkQymkteFLHeNb02/4rSdQM
            8c47F1beWdPPMdYPRIBEiCYdoGdNP8dIThR7px1Mj/6OTwLU4N/+9mDJMmZEGsYZZ0z2vQaUfLmI
            FyDrse8Z9yjY/+tIWAaQfjOmL3yhW/2yTkvvh3WLlSNRHYWrnDqG/dDzpl85X/CCYI4wB0BOiF0i
            86ZfUtL++zfLm7OgJ02KmxX9QuP2f/uZA8zxyye9zYt+9o3ja4as/g18HIF50y8CbHeM8c4AbXfK
            9Ojv6CRAa4JvelPwRhsF5/2Q+SQ0WYuyRhmQfHtWDrUAT5unWQrKLUvYrgj6eYD52k8DgjVFSwkZ
            o/T7/1Iw43PphSzwfEZ19mDzARdtR15Ou3663AHAERIK1g7y7W/0MJxt+nOoOevHpaDce+4ZrD9y
            fM188qUlXek30yoF/di2WOVioOnPa7Zd6W+7VXAo6Md2Q6nnfDR01jcv+pXLOKY8HJ58JPb06F9k
            BECBDj002D5ZA14Ofdx2W/P/d9wx2LY5SVaSiHhMDGmbocsDxFA5AJ53wAHB9snmbGH683YQnrKZ
            Iv32UfOcR+k3sy4F22NEPHK2MP0iNSBCwIHwfzxaBmSU/hU6jmRNCjM+euhQbgNhPg8ge/YMZZv+
            7EBB6fpX706AU96sX5Jk1/pL3wbI4eGIau+Z87kUXelvu3Z6KLC/HPmcA5IPSJo3/TknII8/fu5L
            /3ILXspfZASAYAO/EBc2EMoGPu+8YB6NSEE+WYknBUImsjC90Hzy2tDJf8pr4M+6DQSygeUAMNhm
            ynn/vgGxTT/dGkxf283G1b/hhsEcvqxfNrDzAHRY9awD+TxHgrL+nGzT9UEb40K9yfnIujlAssKd
            +W3GKERMp+/L+unmIDKsntf1gU+TIm8Ty/o5/s6FoJ9BW6z+rg98mhTaY9bNcOeDyRarPydblur/
            wO7ly5DYKeXuWr92X6r/g/bfth28b/0L3267yJmTDuigHzMAhtkZ8Gee2Sx4DvnqQNmT8nNeQ8nJ
            D11vsxoXdJqx8+QYAg6PM6DpN5M1gObrYTkCGkDWryHl+7SHhgYvuYvjojwXXRRsW1y+L3v5Fgc0
            z+jpt3ZqJtl2e9pQyJd5GNDV/zXXBF91VbB2ztFp0992b7gBNDvCpXNfDPCWAtWvz7UPOuhvOydj
            1vRL8mUHhXQ5rjn5LR9cNql+35cnAqXg/UtytCTj81xf7NpC2z/9+l/p2xCzfeKQsevGp+nTv0gH
            QME+/vFghs7nsr5z1r8Gm6/N9ELaXkw+a740lOeUU4JledNlAMieYT5QZ1SDyM8r5fC0lUeEhyOk
            4+efoe0Aqfz7DA297zP2JwVHxxJP7rBZTzbcOYTpvbR17L7PmJ8UZiBf/3owA6acWUc+szzr50DO
            in56HIE7aikyR7Am1V/a4WlDXvJoA/0GyLyEM6v6tctRSX7aPZ1Z/6jdAt3p7+ikOg2ZAeQJjiqo
            pBEzBn9/113BDOi0Q8Vb4zZTbxvINAAzZhER77Gvs8z7gnpTX0JVbdtTNGyGT8TH91gr7+sgp65B
            p1DkqFsffW6gbNM/bQPduO9h1IyUfn9nSYz+HOqfN+TIhQGAY09/6Zl938iRTxNFEb5518/e56z+
            hW6XnBw9nQMwLmwbzPvFRRL6usxnWmDgt22E5yeUNO8dQMRDyDDfJrdUkE8Wm9YZTl/It6lN277u
            vpGTuEqHtCsqBsWoNdGKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKEfh/6SfpnNru7FIA
            AAAASUVORK5CYII=
        }]
        set Widget $widget
        my initTarget
    }    
    
    method initTarget {} {
        set img [image create photo -height $Height -width $Width]
        $Widget configure -image $img
        return $img
    }
    
    method getBox {id} {
        set ix [expr $id%8]
        if {$ix == 0} {set ix 8}
        set iy [expr ($id-1)/8]
        
        set x1 [expr ($ix-1)*32]
        set x2 [expr $ix*32]
        set y1 [expr $iy*32]
        set y2 [expr ($iy+1)*32]
        
        return [list $x1 $y1 $x2 $y2]
    }
    
    method createTarget {id} {
        [my initTarget] copy $Image -from {*}[my getBox $id]
    }
    
    method nextTarget {} {
        incr Id
        if {$Id > 32} {
            set Id 2
        }
        my createTarget $Id
        after $Interval [list [self] nextTarget]
    }
    
    method start {} { my nextTarget }
}